﻿Public Class Usuarios

    Public Function Listar() As List(Of Banco.BE.Usuarios)

        Dim lista As New List(Of Banco.BE.Usuarios)
        Dim usuarioDs As New Banco.DS.Usuarios

        lista = usuarioDs.Listar

        Return lista

    End Function

    Public Function ListarHabilitado() As List(Of Banco.BE.Usuarios)

        Dim lista As New List(Of Banco.BE.Usuarios)
        Dim usuarioDs As New Banco.DS.Usuarios

        lista = usuarioDs.ListarHabilitado

        Return lista

    End Function

    Public Function ListarInhabilitado() As List(Of Banco.BE.Usuarios)

        Dim lista As New List(Of Banco.BE.Usuarios)
        Dim usuarioDs As New Banco.DS.Usuarios

        lista = usuarioDs.ListarInhabilitado

        Return lista

    End Function

    Sub Agregar(ByVal mantusuario As Banco.BE.Usuarios)
        Dim dsamv As Banco.DS.Usuarios
        dsamv = New Banco.DS.Usuarios
        dsamv.Agregar(mantusuario)
    End Sub

    Function Editar(ByVal mantusuario As Banco.BE.Usuarios) As Boolean
        Dim dsamv As Banco.DS.Usuarios
        dsamv = New Banco.DS.Usuarios
        Return dsamv.Editar(mantusuario)
    End Function

    Function Obtener(ByVal id As Integer) As Banco.BE.Usuarios
        Dim dsMantusuario As Banco.DS.Usuarios
        dsMantusuario = New Banco.DS.Usuarios
        Return dsMantusuario.Obtener(id)
    End Function

    Function Devolver(ByVal id As Integer) As Boolean
        Dim dsMantusuario As Banco.DS.Usuarios
        dsMantusuario = New Banco.DS.Usuarios
        Return dsMantusuario.Devolver(id)
    End Function

    Function Devolver2(ByVal id As Integer) As Boolean
        Dim dsMantusuario As Banco.DS.Usuarios
        dsMantusuario = New Banco.DS.Usuarios
        Return dsMantusuario.Devolver2(id)
    End Function
End Class
